home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / bcast / bcstcble / ratioxfr.asc < prev    next >
Text File  |  1990-10-14  |  715b  |  20 lines
  1. 12000 ' TRANSFORMER WINDINGS BY GILDER AND HEIDNER
  2. 12010 CLS
  3. 12020 PRINT"Transformer windings ratio"
  4. 12030 PRINT:PRINT:PRINT:PRINT
  5. 12040 PRINT"This program calculates the turns"
  6. 12050 PRINT"ratio required for a transformer given"
  7. 12060 PRINT"the desired input and output impedances."
  8. 12070 PRINT:PRINT:PRINT:PRINT
  9. 12080 INPUT"Primary Impedance>>";Z1
  10. 12090 INPUT"Secondary Impedance>>";Z2
  11. 12100 PRINT:PRINT:PRINT:PRINT
  12. 12110 T=SQR(Z1/Z2)
  13. 12115 T=INT(10*T+.5)/10
  14. 12120 PRINT:PRINT:PRINT
  15. 12130 PRINT"The turns ratio for a transformer with"
  16. 12140 PRINT: PRINT"Primary impedance of  ";Z1;"  ohms"
  17. 12150 PRINT: PRINT"and Secondary impedance of  ";Z2;"  ohms"
  18. 12160 PRINT: PRINT"is  ";T;"/1"
  19. 12170 END
  20.